home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / demos / sfx.gc < prev    next >
Text File  |  1996-10-28  |  4KB  |  139 lines
  1. G4C - SFX gui - by dck - 13/1/96
  2.  
  3. ; GUI for setting the parameters of the SFX samples player.
  4.  
  5. ; This GUI (like ppshow.gc) is supposed to be loaded and operated through
  6. ; the MMedia GUI, but can also work on its own.
  7.  
  8.  
  9. WINBIG   160 14 350 143 "SFX 2.4"
  10. wintype  11110001                 ; Resize away
  11.  
  12. ;-------------> Some boxes here and there..
  13.  
  14. BOX 10  50 330 21 IN ICONDROP
  15. BOX 10  74 150 43 IN RIDGE
  16. BOX 189 74 150 43 IN RIDGE
  17. ;BOX 20  80 130 31 OUT ICONDROP
  18.  
  19. ;--------------> Make this window an AppWindow
  20. ; If icons are dropped into it we put them into the ppsmod variable and
  21. ; update the TEXT displays in MMedia.gc and here.
  22.  
  23. xAppWindow ppsmod
  24. if $ppsmod > ""
  25.    update sfx.gc 2 $ppsmod
  26.    update MMedia.gc 2 $ppsmod
  27. endif
  28.  
  29. ;--------------> Upon Loading, we check if MMedia.gc is loaded or not.
  30. ; If loaded, we update our filename, as it may have changed from MMedia.gc
  31. ; Otherwise, we set the default values of our variables.
  32.  
  33. xONLOAD
  34. SetGad sfx.gc 10 OFF           ; Volume control is OFF
  35. SetGad sfx.gc 12 OFF           ; Hz control is OFF
  36. IfExists GUI MMedia.gc
  37.   update sfx.gc 2 $ppsmod
  38. else
  39.   setvar ppsmod   ""           ; Name of music file
  40.   setvar ppsleft  -l           ; Left speacker
  41.   setvar ppsright -r           ; Right speacker
  42.   setvar ppsvol   64           ; Sample volume
  43.   setvar ppsVolGad ""          ; Volume slider is off
  44.   setvar ppsrep   100          ; No of times to repeat sample
  45.   setvar ppsRepGad "-c 100"    ; Command line option for repeat 100 times
  46.   setvar ppshz    30000        ; Sample rate (speed)
  47.   setvar ppsHzGad ""           ; Rate slider is off
  48. endif
  49.  
  50. ;--------------> On Opening we refresh the file name display, as it may
  51. ;                have been changed by MMedia.gc
  52.  
  53. xONOPEN
  54. if $ppsmod = ""
  55.    update sfx.gc  2 "No file chosen."
  56. else
  57.    update sfx.gc  2 "$ppsmod"
  58. endif
  59.  
  60. ;==================> Checkbox buttons for ON/OFF parameters
  61.  
  62. xCHECKBOX 300 55  26 11 "RIGHT" ppsright  "-r"  "" ON
  63. xCHECKBOX 25  55  26 11 "LEFT"  ppsleft   "-l"  "" ON
  64. GadTitle RIGHT
  65. xCHECKBOX 305 78  26 11 FromDisk    ppsdisk   -d  "" OFF
  66. xCHECKBOX 305 90  26 11 Script      ppsscript -s  "" OFF
  67. xCHECKBOX 305 102 26 11 Quiet       ppsquiet  -q  "" OFF
  68.  
  69. ;=================> Sliders for repeat, volume and sample rate.
  70. ; The checkboxes next to them, denote whether options are on or off.
  71.  
  72. ;----> Volume
  73.  
  74. xHSLIDER  40 5 220 12 ""   ppsvol 1 64 64 "%2ld Vol."
  75. GadId 10
  76. setvar ppsVolGad "-v $ppsvol"
  77.  
  78. xCHECKBOX 10 5 26 11 "" ppsVolGad "-v $ppsvol" "" OFF
  79. if $ppsVolGad = ""
  80.    SetGad sfx.gc 10 OFF
  81. else
  82.    SetGad sfx.gc 10 ON
  83. endif
  84.  
  85. ;----> Times
  86.  
  87. xHSLIDER  40 20 220 12 ""  ppsrep 1 200 100 "%3ld Times"
  88. GadId 11
  89. setvar ppsRepGad "-c $ppsrep"
  90.  
  91. xCHECKBOX 10 20 26 11 "" ppsRepGad "-c $ppsrep" "" ON
  92. if $ppsRepGad = ""
  93.    SetGad sfx.gc 11 OFF
  94. else
  95.    SetGad sfx.gc 11 ON
  96. endif
  97.  
  98. ;----> Herz - Hz can go from 0-65530 - we set the slider for 0-6553 range
  99. ;      and append a 0 to the value, so we get the correct value.
  100. ;      We do this because the range is far too big to be usefull.
  101.  
  102. xHSLIDER  40 35 220 12 "" ppshz  6 6553 3200  "%4ldx10Hz"
  103. GadId 12
  104. AppVar ppshz 0
  105. setvar ppsHzGad "-p $ppshz"
  106.  
  107. xCHECKBOX 10 35 26 11 "" ppsHzGad "-p $ppshz"  ""  OFF
  108. if $ppsHzGad = ""
  109.    SetGad sfx.gc 12 OFF
  110. else
  111.    SetGad sfx.gc 12 ON
  112. endif
  113.  
  114. ;=====================> Icon acting as the "Play" button
  115.  
  116. xICON 54 83 GUIs:info/play
  117. if $ppsmod != ""
  118.   RUN 'c:sfx >NIL: $ppsVolGad $ppsRepGad $ppsHzGad $ppsleft $ppsright $ppsscript $ppsdisk $ppsquiet $ppsmod'
  119. endif
  120.  
  121. ;=====================> button for file requester
  122.  
  123. xBUTTON 10 120 20 15 "F"
  124. ReqFile -1 -1 300 -40 "Choose Music" LOAD ppsmod sys:
  125. if $ppsmod = ""
  126.    update sfx.gc  2 "No file chosen"
  127.    update MMedia.gc 2 "No Music file chosen"
  128. else
  129.    update sfx.gc  2 "$ppsmod"
  130.    update MMedia.gc 2 "$ppsmod"
  131. endif
  132.  
  133. ;====================> Text box for displaying the chosen file
  134.  
  135. TEXT 35 120 305 15 "No Music file chosen" 150 BOX
  136. GADID 2
  137.  
  138.  
  139.